From 3d41843d8418f50b3fda5b922e80d7723a87e0ea Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 4 Jan 2001 14:09:24 +0000 Subject: [PATCH] Fix last change. --- lisp/tooltip.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/tooltip.el b/lisp/tooltip.el index 408943f0048..f9d58802d7e 100644 --- a/lisp/tooltip.el +++ b/lisp/tooltip.el @@ -331,13 +331,13 @@ change the existing association. Value is the resulting alist." (fg (face-attribute 'tooltip :foreground)) (bg (face-attribute 'tooltip :background))) (unless (eq 'unspecified fg) - (tooltip-set-param params 'foreground-color fg)) + (setq params (tooltip-set-param params 'foreground-color fg))) (unless (eq 'unspecified bg) - (tooltip-set-param params 'background-color bg) - (tooltip-set-param params 'border-color bg)) + (setq params (tooltip-set-param params 'background-color bg)) + (setq params (tooltip-set-param params 'border-color bg))) (x-show-tip (propertize text 'face 'tooltip) (selected-frame) - tooltip-frame-parameters + params nil tooltip-x-offset tooltip-y-offset)) -- 2.30.2